Collection of Tools & Utilities/Collection of Tools and Utilities.iso/turbovis/ned103.zip/CMDFILE.PAS

Pascal/Delphi Source File | 1992-08-28 | 13KB | 448 lines

{ FILE:  cmdfile.pas}



unit CmdFile;




{ ----------------------------------------------------------- }
{                                                             }
{ This unit contains all the command options for the program  }
{ and all the status line hints for the program menu options. }
{                                                             }
{ For the help commands, always ensure last item in a series  }
{ of numbers is labeled "hc????_Items" and it equals last     }
{ item in number series.                                      }
{                                                             }
{ Don't put anything else in here except key command codes!   }
{                                                             }
{ Note that in order for a command to be disabled, it MUST be }
{ in the range 100..255!                                      }
{                                                             }
{         Allowable Ranges   Reserved   Can Be Disabled       }
{                                                             }
{              0..99           Yes           Yes              }
{            100..255          No            Yes              }
{            256..999          Yes           No               }
{           1000..65535        No            No               }
{                                                             }
{ Al Andersen - 02/29/92.                                     }
{                                                             }
{ ----------------------------------------------------------- }


{$D-}



interface



CONST



  {------------------------------------- }
  {                                      }
  { Menu commands.  Space is provided    }
  { if you want to add an "Extras" menu. }
  { If you use the extra's menu option,  }
  { put your commands here.              }
  {                                      }
  { cm??? range = 100 through 109        }
  { hc??? range = 2000 through 2099      }
  {                                      }
  { ------------------------------------ }


  cmAbout                =  100;

  hcMenus                = 2000;

  hcExtra_Menu           = 2001;
  hcAbout                = 2002;
  hcExtra_Menu_Items     = hcExtra_Menu;



  { ------------------------------- }
  {                                 }
  { FILE Menu options.              }
  {                                 }
  { The following commands may be   }
  { found in the NEWEDIT unit:      }
  {                                 }
  { cmSave                          }
  { cmSaveDone                      }
  { cmSaveAs                        }
  {                                 }
  { The following commands may be   }
  { found in the VIEWS unit:        }
  {                                 }
  { cmQuit                          }
  {                                 }
  { cm??? range =  110 through  119 }
  { hc??? range = 2100 through 2199 }
  {                                 }
  { ------------------------------- }


  cmOpen                 =  110;
  cmNew                  =  111;
  cmChangeDir            =  112;
  cmShellToDos           =  113;

  hcFile_Menu            = 2100;
  hcOpen                 = 2101;
  hcNew                  = 2102;
  hcSave                 = 2103;
  hcSaveDone             = 2104;
  hcSaveAs               = 2105;
  hcChangeDir            = 2106;
  hcShellToDos           = 2107;
  hcExit                 = 2108;
  hcFile_Menu_Items      = hcExit;



  { ------------------------------- }
  {                                 }
  { EDIT Menu options.              }
  {                                 }
  { The following commands may be   }
  { found in the VIEWS unit:        }
  {                                 }
  { cmUndo                          }
  { cmCopy                          }
  { cmCut                           }
  { cmPaste                         }
  { cmClear                         }
  {                                 }
  { cm??? range =  120 through  129 }
  { hc??? range = 2200 through 2299 }
  {                                 }
  { ------------------------------- }


  cmClipboard            =  120;
  cmSpellCheck           =  121;

  hcEdit_Menu            = 2200;
  hcUndo                 = 2201;
  hcCopy                 = 2202;
  hcCut                  = 2203;
  hcPaste                = 2204;
  hcClipboard            = 2205;
  hcClear                = 2206;
  hcSpellCheck           = 2207;
  hcEdit_Menu_Items      = hcSpellCheck;



  { ------------------------------- }
  {                                 }
  { SEARCH Menu options.            }
  {                                 }
  { The following commands may be   }
  { found in the NEWEDIT unit:      }
  {                                 }
  { cmFind                          }
  { cmReplace                       }
  { cmSearchAgain                   }
  {                                 }
  { cm??? range =  130 through  139 }
  { hc??? range = 2300 through 2399 }
  {                                 }
  { ------------------------------- }


  hcSearch_Menu          = 2300;
  hcFind                 = 2301;
  hcReplace              = 2302;
  hcAgain                = 2303;
  hcSearch_Menu_Items    = hcAgain;



  { ------------------------------- }
  {                                 }
  { WINDOWS Menu options.           }
  {                                 }
  { The following commands may be   }
  { found in the VIEWS unit:        }
  {                                 }
  { cmResize                        }
  { cmZoom                          }
  { cmNext                          }
  { cmPrev                          }
  { cmClose                         }
  { cmTile                          }
  { cmCascade                       }
  {                                 }
  { cm??? range =  140 through  149 }
  { hc??? range = 2400 through 2499 }
  {                                 }
  { ------------------------------- }


  hcWindows_Menu         = 2400;
  hcResize               = 2401;
  hcZoom                 = 2402;
  hcPrev                 = 2403;
  hcNext                 = 2404;
  hcClose                = 2405;
  hcTile                 = 2406;
  hcCascade              = 2407;
  hcWindows_Menu_Items   = hcCascade;



  { ------------------------------- }
  {                                 }
  { DESKTOP Menu options.           }
  {                                 }
  { cm??? range =  150 through  159 }
  { hc??? range = 2500 through 2599 }
  {                                 }
  { ------------------------------- }


  cmLoadDesktop          =  150;
  cmSaveDesktop          =  151;
  cmToggleVideo          =  152;

  hcDesktop_Menu         = 2500;
  hcLoadDesktop          = 2501;
  hcSaveDesktop          = 2502;
  hcToggleVideo          = 2503;
  hcDesktop_Menu_Items   = hcToggleVideo;



  { -------------------------------------------------------------------- }
  {                                                                      }
  { Miscellaneous commands not directly related to menu options go here. }
  {                                                                      }
  { -------------------------------------------------------------------- }


  hcMisc_Commands        = 2600;
  hckbShift              = 2601;
  hckbCtrl               = 2602;
  hckbAlt                = 2603;
  hcMisc_Items           = hckbAlt;



  { ------------------------------- }
  {                                 }
  { Editor help commands.           }
  {                                 }
  { Editor commands that are not    }
  { available in a menu go here.    }
  {                                 }
  { hc??? range = 2700 through 2799 }
  {                                 }
  { ------------------------------- }


  { Editor Sub Menu Commands }

  hcEditor_Commands      = 2700;
  hcCursor               = 2701;
  hcDeleting             = 2702;